home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
eggs
< prev
next >
Wrap
Text File
|
2007-02-28
|
426b
|
16 lines
0010 // THE WOMAN WITH THE EGGS //
0020 PRINT CHR$(147) //CLEAR SCREEN
0030 FOR I:=1 TO 8 DO PRINT //8 DOWN
0040 PRINT "HOW MANY EGGS DO YOU HAVE",
0050 INPUT EGGS
0060 TRAYS:=0
0070 WHILE EGGS>=6 DO
0080 EGGS:=EGGS-6
0090 TRAYS:=TRAYS+1
0100 ENDWHILE
0110 PRINT CHR$(147) //CLEAR
0120 FOR I:=1 TO 8 DO PRINT //8 DOWN
0130 PRINT "WE HAVE PACKED ",TRAYS," EGG TRAY(S),"
0140 PRINT "AND LEFT OVER ",EGGS," EGG(S)."
0150 END